home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / oddwnd / irregwin.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-12-10  |  3.6 KB  |  120 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   4200
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   5280
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   4200
  10.    ScaleWidth      =   5280
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.HScrollBar HScroll1 
  13.       Height          =   375
  14.       Left            =   1620
  15.       TabIndex        =   9
  16.       Top             =   3720
  17.       Width           =   1635
  18.    End
  19.    Begin VB.PictureBox Picture1 
  20.       Height          =   735
  21.       Left            =   180
  22.       ScaleHeight     =   675
  23.       ScaleWidth      =   1515
  24.       TabIndex        =   8
  25.       Top             =   2640
  26.       Width           =   1575
  27.    End
  28.    Begin VB.CheckBox Check1 
  29.       Caption         =   "Just a sample checkbox"
  30.       Height          =   555
  31.       Left            =   2640
  32.       TabIndex        =   5
  33.       Top             =   2040
  34.       Width           =   2115
  35.    End
  36.    Begin Project1.UserControl1 UserControl12 
  37.       Height          =   1215
  38.       Left            =   240
  39.       TabIndex        =   4
  40.       Top             =   300
  41.       Width           =   975
  42.       _ExtentX        =   1720
  43.       _ExtentY        =   2143
  44.       MaskPicture     =   "IrregWindow.frx":0000
  45.       Picture         =   "IrregWindow.frx":0456
  46.    End
  47.    Begin VB.CommandButton Command4 
  48.       Caption         =   "HIDE ME!"
  49.       Height          =   435
  50.       Left            =   60
  51.       TabIndex        =   3
  52.       Top             =   3660
  53.       Width           =   1155
  54.    End
  55.    Begin VB.CommandButton Command2 
  56.       Caption         =   "A Button"
  57.       Height          =   555
  58.       Left            =   2760
  59.       TabIndex        =   2
  60.       Top             =   240
  61.       Width           =   2115
  62.    End
  63.    Begin VB.CommandButton Command3 
  64.       Caption         =   "Yet Another Button"
  65.       Height          =   855
  66.       Left            =   3480
  67.       TabIndex        =   1
  68.       Top             =   2880
  69.       Width           =   1695
  70.    End
  71.    Begin VB.CommandButton Command1 
  72.       Caption         =   "'Nother button"
  73.       Height          =   675
  74.       Left            =   2760
  75.       TabIndex        =   0
  76.       Top             =   1020
  77.       Width           =   2115
  78.    End
  79.    Begin VB.Label Label3 
  80.       Caption         =   "Sample dummy controls."
  81.       Height          =   795
  82.       Left            =   1920
  83.       TabIndex        =   10
  84.       Top             =   2820
  85.       Width           =   1275
  86.    End
  87.    Begin VB.Label Label2 
  88.       Caption         =   "<< Double click on him! Drag him around. Double click again to get him back into the form!"
  89.       Height          =   2175
  90.       Left            =   1260
  91.       TabIndex        =   7
  92.       Top             =   480
  93.       Width           =   1155
  94.    End
  95.    Begin VB.Label Label1 
  96.       Caption         =   "My ULTIMATE Toy!"
  97.       Height          =   795
  98.       Left            =   360
  99.       TabIndex        =   6
  100.       Top             =   1560
  101.       Width           =   795
  102.    End
  103. Attribute VB_Name = "Form1"
  104. Attribute VB_GlobalNameSpace = False
  105. Attribute VB_Creatable = False
  106. Attribute VB_PredeclaredId = True
  107. Attribute VB_Exposed = False
  108. Private Sub Command4_Click()
  109. Me.Hide
  110. End Sub
  111. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  112. ReleaseCapture
  113. SendMessage Me.hwnd, 161, 2, 0
  114. End Sub
  115. Private Sub Form_Paint()
  116.   Form1.Line (0, 0)-(Form1.Width, Form1.Height), &HFF, BF
  117. End Sub
  118. Private Sub Label4_Click()
  119. End Sub
  120.